home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Snippets / Toolbox / DialogBits / DialogBits 2.0.1.c next >
Encoding:
C/C++ Source or Header  |  1992-07-23  |  32.3 KB  |  801 lines  |  [TEXT/MPS ]
  1. /* DialogBits
  2. * providing a bunch of dialog manager snippets */
  3. /*************************************************************
  4. This sample shows how to deal with many of the most commonly asked Dialog Manager
  5. questions.  Dimming edit lines, using userItems, restricting edit lines to
  6. specific lengths, and some other stuff is included here.
  7. The programming style used here is designed to clearly show the specific
  8. actions I'm taking, _not_ to show good coding practice.  Obviously, you will 
  9. want to modify and optimize this code for your specific application.
  10. C.K. Haun
  11. Apple Developer Tech Support
  12. *************************************************************/
  13. /*
  14. v 2.0.1 July '92
  15. Change for version 2.0.1
  16. Added a variable item, varies between static text and edit text.
  17.     Lots of folks have asked how to do this, and this shows the safest
  18.     way to do so.
  19.     Is this a good interface (switching between static and edit text)?
  20.     I dunno, I've had many people say "NO! Never do that!" and others say 
  21.     "Yeah, if it makes sense.".  I'm not making any value judgements, it's
  22.     your applications, if it makes sense to you have fun.
  23. */
  24.  
  25. /*
  26.  
  27. v 2.0 April '92
  28. Changes for version 2.0
  29. If available, use the new Dialog Manager routines.
  30. Added a control item
  31. Added code to check for DialogDispatch trap
  32. Added code to show how to check for 'Paste' in a size-limited edit field
  33.  
  34. */
  35.  
  36.  
  37. #include <Dialogs.h>
  38. #include <Controls.h>
  39. #include <QuickDraw.h>
  40. #include <Windows.h>
  41. #include <ToolUtils.h>
  42. #include <OSUtils.h>
  43. #include <Menus.h>
  44. #include <Fonts.h>
  45. #include <resources.h>
  46. #include <Sound.h>
  47. #include <Traps.h>
  48. #include <Gestaltequ.h>
  49. #include <Memory.h>
  50. #include <Scrap.h>
  51. #include <TextEdit.h>
  52. /* item numbers */
  53.  
  54. /* this stuff would normally be in your .h file, but in this simple example */
  55. /* I just put them here */
  56. /* I like enums, hate #defines */
  57. enum  {
  58.     /* ok and cancel are already defined in Dialogs.h */
  59.     kTitleItem = 3, 
  60.     kFredIconItem, 
  61.     kBottomEditLine, 
  62.     kSpinItem, 
  63.     kTopEditLine, 
  64.     kEditCheckBox, 
  65.     kDimmingBox,
  66.     kSayClickFred, 
  67.     kSayWhichVersItem, 
  68.     kScrollControlItem, 
  69.     kSayRotationSpeedItem, 
  70.     kSlowWordItem, 
  71.     kFastWordItem, 
  72.     /* 2.0.1 */
  73.     kStatTextVaryItem,
  74.     kEditTextVaryItem,
  75.     kVaryTextCheckBoxItem,
  76.     kBorderBox
  77. };
  78. enum  {
  79.     kSampleDialog = 128, 
  80.     kBaseSpinIcon = 129
  81. };
  82. enum  {
  83.     kSoundID = 128, 
  84.     kFredIconID = 128, 
  85.     kSysEnvironsVersion = 1, 
  86.     kNotWord = 128
  87. };
  88. /* key equates */
  89. enum  {
  90.     kEnterKey = 0x03, 
  91.     kTabKey = 9, 
  92.     kReturnKey = 0x0D, 
  93.     kBackSpace = 8, 
  94.     kEscKey = 0x1B, 
  95.     kLeftArrow = 0x1C, 
  96.     kRightArrow, 
  97.     kUpArrow,
  98.     kDownArrow, 
  99.     kDeleteKey = 0x7F
  100. };
  101.  
  102. /* prototypes */
  103. ControlHandle SnatchHandle(DialogPtr thebox, short theGetItem);
  104. void SpinIt(DialogPtr theDialog);
  105. pascal Boolean filterIt(DialogPtr inputDialog, EventRecord *myDialogEvent, short *theDialogItem);
  106. Boolean IsEditKey(char theKey, short modifiers);
  107. void IBeamIt(WindowPtr dwind);
  108. pascal void BorderDefault(WindowPtr dwind, short dinum);
  109. pascal void DimEditLine(WindowPtr dwind, short dinum);
  110. pascal void DoScrollArrows(ControlHandle theControl, short thePart);
  111. Boolean TrapAvailable(short tNumber, TrapType tType);
  112. short HasSelectionRange(DialogPeek inputDialog);
  113. pascal void NOPRoutine(WindowPtr dwind, short dinum);
  114.  
  115. /* These are the new Dialog Manager calls described in Tech note #304 */
  116. /* ONLY used if System 7 or later, of course */
  117. pascal OSErr GetStdFilterProc(ModalFilterProcPtr *theProc) = 
  118. {
  119.     0x303C, 0x0203, 0xAA68
  120. };
  121.  
  122.  
  123.  
  124.  
  125. /* Indicates to the dialog manager which item is default.  Will then alias the return key */
  126. /* to this item, and also bold border it for you (yaaaaa!) */
  127. pascal OSErr SetDialogDefaultItem(DialogPtr theDialog, short newItem)
  128. = 
  129. {
  130.     0x303C, 0x0304, 0xAA68
  131. };
  132.  
  133.  
  134.  
  135.  
  136. /* Indicates which item should be aliased to escape or Command - . */
  137. pascal OSErr SetDialogCancelItem(DialogPtr theDialog, short newItem)
  138. = 
  139. {
  140.     0x303C, 0x0305, 0xAA68
  141. };
  142.  
  143.  
  144.  
  145.  
  146. /* Tells the dialog manager that there is an edit line in this dialog, and */
  147. /* it should track and change to an I-Beam cursor when over the edit line */
  148. pascal OSErr SetDialogTracksCursor(DialogPtr theDialog, Boolean tracks) = 
  149. {
  150.     0x303C, 0x0306, 0xAA68
  151. };
  152.  
  153.  
  154.  
  155.  
  156. /* one global.  And it's not strictly necessary, this is set by a call to  */
  157. /* TrapAvailable to see if the new dialog dispatch routines are in. */
  158. /* So, you could call TrapAvail all the time instead of using this global */
  159. Boolean gNewDialog = true;
  160.  
  161. main()
  162. {
  163.     DialogPtr myDialog = nil;                               /* the dialog wee're using */
  164.     short hitItem = 0;                                      /* hitItem for ModalDialog */
  165.     Rect tempRect;                                          /* these  three are here for all the GetDItem/SetDItem calls*/
  166.     short tempItem;
  167.     Handle tempHandle;
  168.     Boolean tempBool;                                       /* a temporary boolean (now THAT'S a helpful comment */
  169.     Handle theSound;
  170.     Str255 tempString;
  171.     /* start up manahers */
  172.     InitGraf((Ptr)&qd.thePort);
  173.     InitFonts();
  174.     InitWindows();
  175.     InitMenus();
  176.     TEInit();
  177.     InitDialogs(nil);
  178.     InitCursor();
  179.     /* get our dialog.  It is created HIDDEN, and shown after I set all */
  180.     /* the user items to their functions */
  181.     myDialog = GetNewDialog(kSampleDialog, nil, (WindowPtr)-1);
  182.     
  183.     /* See if the DialogDispatch trap is available for using the new calls */
  184.     gNewDialog = TrapAvailable(_DialogDispatch, ToolTrap);
  185.     
  186.     /* add a NOT word to my string if they aren't */
  187.     if (gNewDialog == false) {
  188.         Handle theWord = GetResource('STR ', kNotWord);
  189.         if (theWord) {
  190.             HLock(theWord);
  191.             ParamText((Str255)*theWord, "", "", "");
  192.             HUnlock(theWord);
  193.             ReleaseResource(theWord);
  194.         }
  195.     }
  196.     /* set up our user items for various things */
  197.     
  198.     /* Switch here for Sys 7 or prior */
  199.     /* We'll set up our default and cancel items for gNewDialog, and also shorten */
  200.     /* the DITL to remove the user item I had in there to border the OK button */
  201.     /* Testing for System 7 is appropriate for the new DM calls, but for the */
  202.     /* Append/Delete DITL calls there is a specific selector, so we'll use that also */
  203.     if (gNewDialog) {
  204.         long gestaltReturn;
  205.         OSErr myErr;
  206.         SetDialogDefaultItem(myDialog, ok);
  207.         SetDialogCancelItem(myDialog, cancel);
  208.         SetDialogTracksCursor(myDialog, true);
  209.         
  210.         /* If we have the new calls, we can (and should) take the bounding */
  211.         /* box user item off our item list */
  212.         /* see if ShortenDILT exisits */
  213.         myErr = Gestalt(gestaltDITLExtAttr, &gestaltReturn);
  214.         if ((myErr == noErr) && (gestaltReturn & 0x1)) {
  215.             ShortenDITL(myDialog, 1);
  216.         } else {
  217.             
  218.             /* something weird happened, we have the new Dialog calls but not  */
  219.             /* shortenDITL.  So make the bounding box item a NOP, but we still */
  220.             /* MUST have it point to something */
  221.             GetDItem(myDialog, kBorderBox, &tempItem, &tempHandle, &tempRect);
  222.             SetDItem(myDialog, kBorderBox, tempItem, (Handle)NOPRoutine, &tempRect);
  223.             
  224.         }
  225.     } else {
  226.         /* no new calls, set up the bordering box ourselves */
  227.         GetDItem(myDialog, kBorderBox, &tempItem, &tempHandle, &tempRect);
  228.         SetDItem(myDialog, kBorderBox, tempItem, (Handle)BorderDefault, &tempRect);
  229.     }
  230.     
  231.     /* set up the user item that will dim the edit line when it is disabled */
  232.     GetDItem(myDialog, kDimmingBox, &tempItem, &tempHandle, &tempRect);
  233.     SetDItem(myDialog, kDimmingBox, tempItem, (Handle)DimEditLine, &tempRect);
  234.     
  235.     /* make sure the enabled checkbox for the edit line is FALSE */
  236.     tempHandle = (Handle)SnatchHandle(myDialog, kEditCheckBox);
  237.     SetCtlValue((ControlHandle)tempHandle, false);
  238.     
  239.     /* and since I want this edit line dimmed when the box first shows up, I'll */
  240.     /* select the other edit line */
  241.     SelIText((DialogPtr)myDialog, kTopEditLine, 0, 0);
  242.     /* 2.0.1 adding switchable text*/
  243.     HideDItem(myDialog,kEditTextVaryItem);
  244.     
  245.     
  246.     /* show it */
  247.     ShowWindow((WindowPtr)myDialog);
  248.     
  249.     /* draw it once */
  250.     DrawDialog(myDialog);
  251.     
  252.     do {
  253.         ModalDialog((ModalFilterProcPtr)filterIt, &hitItem);
  254.         switch (hitItem) {
  255.             case kFredIconItem:
  256.                 /* if they click on Fred, have him express his opinion */
  257.                 theSound = GetResource('snd ', kSoundID);
  258.                 if (theSound != nil) {
  259.                     SndPlay(nil, theSound, false);
  260.                     ReleaseResource(theSound);
  261.                 }
  262.                 break;
  263.             case kEditCheckBox:
  264.                 /* edit line dim checkbox */
  265.                 
  266.                 tempHandle = (Handle)SnatchHandle(myDialog, kEditCheckBox);
  267.                 tempBool = GetCtlValue((ControlHandle)tempHandle);
  268.                 tempBool ? tempBool = false : tempBool = true;
  269.                 SetCtlValue((ControlHandle)tempHandle, tempBool);
  270.                 if (tempBool == false) {
  271.                     /* they turned the edit line off, we need to switch out of the EL if its */
  272.                     /* active */
  273.                     if (((DialogPeek)myDialog)->editField + 1 == kBottomEditLine)
  274.                         SelIText((DialogPtr)myDialog, kTopEditLine, 0, 0);
  275.                 }
  276.                 /* whatever they did, invalidate the rect so the edit line is dimmed/not  */
  277.                 /* dimmed correctly */
  278.                 GetDItem(myDialog, kDimmingBox, &tempItem, &tempHandle, &tempRect);
  279.                 /* way paranoid, but once you've invalidated a rect in the wrong port */
  280.                 /* you never want to do it again */
  281.                 SetPort(myDialog);
  282.                 InvalRect(&tempRect);
  283.                 break;
  284.             case kVaryTextCheckBoxItem:
  285.             tempHandle = (Handle)SnatchHandle(myDialog, kVaryTextCheckBoxItem);
  286.                 tempBool = GetCtlValue((ControlHandle)tempHandle);
  287.                 tempBool = tempBool ? false : true;
  288.                 SetCtlValue((ControlHandle)tempHandle,tempBool);
  289.                 if(tempBool){
  290.                 HideDItem(myDialog,kStatTextVaryItem);
  291.                 ShowDItem(myDialog,kEditTextVaryItem);
  292.                 } else {
  293.                 /* when we switch from edit text to static text, we want the */            
  294.                 /* static text to say the same thing as the edit text, so let's do that */
  295.                 GetIText((Handle)SnatchHandle(myDialog, kEditTextVaryItem), tempString);
  296.                 SetIText((Handle)SnatchHandle(myDialog, kStatTextVaryItem),tempString);
  297.                 HideDItem(myDialog,kEditTextVaryItem);
  298.                 ShowDItem(myDialog,kStatTextVaryItem);
  299.                 
  300.                 }
  301.             /* whatever we did with this, we have to change the selection */    
  302.             if(tempBool){
  303.             /* if they just turned us on, move the selection to us */
  304.             SelIText((DialogPtr)myDialog, kEditTextVaryItem, 0, 0);
  305.         
  306.             } else {
  307.             /* else move to the top line */
  308.                SelIText((DialogPtr)myDialog, kTopEditLine, 0, 0);
  309.             
  310.             }
  311.             break;
  312.                 
  313.         }
  314.     }
  315.             while (hitItem != ok && hitItem != cancel);
  316.     DisposDialog(myDialog);
  317.     InitCursor();                                           /* Init to prevent I-beam from hanging around in some circumstances */
  318. } /* end main */
  319.  
  320. /* My dialog filter.  It's pretty crowded here, since I'm showing lots of */
  321. /* stuff.  You'd of course want it neatened up a bit */
  322. pascal Boolean filterIt(DialogPtr inputDialog, EventRecord *myDialogEvent, short *theDialogItem)
  323. {
  324.     WindowPtr tempWindowPtr;
  325.     ModalFilterProcPtr theModalProc;
  326.     char theKey;
  327.     Rect tempRect;
  328.     short tempItem;
  329.     Handle tempHandle;
  330.     long tilticks;
  331.     Boolean returnVal = false;
  332.     char tempKey;
  333.     Str255 myStr;
  334.     long offset;
  335.     short selection;
  336.     long scrapLen;
  337.     short resultLen;
  338.     Point mousePoint;
  339.     Boolean hiLit = false;
  340.     Point tempPoint;
  341.     short thePart;
  342.     ControlHandle returnedControl;
  343.     OSErr myErr;
  344.     Boolean wasAKey = false;    
  345.     /* save the current port, and set the port to us */
  346.     GetPort(&tempWindowPtr);
  347.     SetPort(inputDialog);
  348.     
  349.     /**********************************************************************/
  350.     /* Use something like this if you want to do any idle time drawing in your */
  351.     /* dialog, like a clock, flashing cursor, or a classy animated icon like I'm using */
  352.     /**********************************************************************/
  353.     SpinIt(inputDialog);
  354.     
  355.     /**********************************************************************
  356.     IBeamIt changes the cursor to an IBeam cursor when the cursor is over
  357.     the active edit line.
  358.     Of course, if we're in System 7, we have already made the DialogTracksCursor
  359.     call, so we don't need this.
  360.     **********************************************************************/
  361.     if (gNewDialog == false)
  362.         IBeamIt(inputDialog);
  363.     
  364.     /*************************************************************/
  365.     /* Some key filtering schemes follow.  The first is the standard filter to */
  366.     /* recognize 'return' as OK and 'ESC' as cancel.  What this really means */
  367.     /* is that I never ever want to have to use the mouse to click the cancel */
  368.     /* buttton ever again, you can just cut and paste this code from now on. */
  369.     /***********************************************************************/
  370.     /* do standard filtering for escape and return as OK and Cancel aliases */
  371.     /* We also invert the button in the dialog, so the user get's visual feedback */
  372.     /* about the action they just took */
  373.     /* Again, if we're using the new calls, then we don't need to do this particular */
  374.     /* filtering */
  375.     wasAKey = (myDialogEvent->what == keyDown) || (myDialogEvent->what == autoKey);
  376.         /* this 'if' has a double key check because of the 'tab' key restriction */
  377.         /* I'm doing.  If the new dialog manager calls are being used, we do NOT */
  378.         /* want to pass the tab key through to the standard filter, since it will */
  379.         /* tab to the other edit line even if we have it turned off */
  380.     if ((gNewDialog == false || (wasAKey && ((myDialogEvent->message & charCodeMask) == kTabKey)) ) && wasAKey) {
  381.         theKey = myDialogEvent->message & charCodeMask;
  382.         switch (theKey) {
  383.             case kReturnKey:
  384.             case kEnterKey:                                 /* enter key */
  385.                 /* This filters for Return or Enter as item 1, and Esc as item 2 */
  386.                 *theDialogItem = ok;                        /* change whatever the current item is to the OK item */
  387.                 /* now we need to invert the button */
  388.                 HiliteControl(SnatchHandle(inputDialog, ok), inButton);
  389.                 Delay(8, &tilticks);                        /* wait about 8 ticks so they can see it */
  390.                 HiliteControl(SnatchHandle(inputDialog, ok), false);
  391.                 SetPort(tempWindowPtr);
  392.                 returnVal = true;
  393.                 break;
  394.                 /* This filters the escape key as the same as item 2 (the canx button, usually ) */
  395.             case kEscKey:
  396.                 *theDialogItem = cancel;
  397.                 HiliteControl(SnatchHandle(inputDialog, cancel), inButton);
  398.                 Delay(8, &tilticks);                        /* wait about 8 ticks so they can see it */
  399.                 HiliteControl(SnatchHandle(inputDialog, cancel), false);
  400.                 returnVal = true;
  401.                 break;
  402.             case kTabKey:
  403.                 /* I'm filtering the tab key here so the user cannot tab to */
  404.                 /* my inactive edit line */
  405.                 if (GetCtlValue((ControlHandle)SnatchHandle(inputDialog, kEditCheckBox)) == false){
  406.                 
  407.                     returnVal = true;                       /* don't allow edit line swaps */}
  408.                 break;
  409.         }
  410.     }
  411.     
  412.     /********************************************************************************/
  413.     /* Here's another kind of key filtering you need every so often, text or numeric */
  414.     /* filtering.  In this case, we're only going to allow non-numeric characters in */
  415.     /* the second edit line we have installed in this dialog */
  416.     /* Any number will be eaten, and a beep generated */
  417.     /**************************************************/
  418.     if (wasAKey) {
  419.         theKey = myDialogEvent->message & charCodeMask;
  420.         
  421.         if ((theKey > 0x30 && theKey < 0x39) && ((DialogPeek)inputDialog)->editField + 1 == kBottomEditLine) {
  422.             /* Dang, it's a number and in the wrong edit line, reject it */
  423.             SysBeep(1);                                     /* complain a little */
  424.             returnVal = true;                               /* tell the dialog manager */
  425.                                                             /* that we handled this already and */
  426.             /* it doesn't have to, so the keystroke will _not_ get */
  427.             /* added to the edit line */
  428.             
  429.         }
  430.     }
  431.     
  432.     /********************************************************************************/
  433.     /* Here's yet another kind of key filtering you need every so often.  */
  434.     /* I'm going to restrict the amount of text in the top edit line to just 25 characters */
  435.     /**************************************************/
  436.     /* •• NOTE: Remember Cut/Copy/Paste! */
  437.     /* Before you allow these, you need to see what the result of a Paste (in this case) */
  438.     /* will be, since a Paste can also drive you over the 25 char limit. */
  439.     /* I've modified the function IsEditKey to look for these */
  440.     /* I've also added code that checks to see if there is a selection range, */
  441.     /* since typeing one charater to replace 5 is OK */
  442.     
  443.     /* First, see if it was a key and the top edit line is active */
  444.     if ((wasAKey) && ((DialogPeek)inputDialog)->editField + 1 == kTopEditLine) {
  445.         selection = HasSelectionRange((DialogPeek)inputDialog);
  446.         scrapLen = GetScrap(nil, 'TEXT', &offset);
  447.         GetDItem(inputDialog, kTopEditLine, &tempItem, &tempHandle, &tempRect);
  448.         GetIText(tempHandle, myStr);
  449.         /* calculate the result of adding the scrap to the current record.  We use */
  450.         /* this in a few places here */
  451.         resultLen = myStr[0] + (scrapLen - selection);
  452.         theKey = myDialogEvent->message & charCodeMask;
  453.         tempKey = theKey;
  454.         if (tempKey >= 0x61 && tempKey <= 0x7a)
  455.             tempKey -= 0x20;
  456.         if (myStr[0] > 25) {                                /* over 25, see what it is */
  457.             if (IsEditKey(theKey, myDialogEvent->modifiers)) {
  458.                 /* it was an editing key, but it MAY be a command-V. */
  459.                 /* If it's a command-V then we won't allow it UNLESS */
  460.                 /* there is a slection range AND the new data won't overrun things */
  461.                 if ((tempKey == 'V') && (myDialogEvent->modifiers & cmdKey)) {
  462.                     
  463.                     /* this was a paste.  check selection range and scrap len  */
  464.                     if (resultLen < 26) {
  465.                         returnVal = false;                  /* net result is  25 or less */
  466.                     } else {
  467.                         SysBeep(1);
  468.                         returnVal = true;
  469.                     }
  470.                 } else {
  471.                     returnVal = false;                      /* don't filter out editing keys */
  472.                 }
  473.             } else {
  474.                 /* One more check (this can get complicated, huh?) */
  475.                 /* We now look to see if there is a selection range.  If there */
  476.                 /* is a range of 1 or more characters, then the one character they are entering */
  477.                 /* now will replace that, and we'll end up with _less_ than 25 (or equal) */
  478.                 /* to do this, we have to get the TERecord out of the dialog.  */
  479.                 /* I'm going to do this in a seperate function */
  480.                 if (selection == nil) {
  481.                     SysBeep(1);                             /* complain a little */
  482.                     returnVal = true;                       /* tell the dialog manager that we handled this already and */
  483.                     /* it doesn't have to, so the keystroke will _not_ get */
  484.                     /* added to the edit line */
  485.                 }
  486.             }
  487.         } else {
  488.             /* even if we're less than 25 currently, a Command-V (paste) could put us over */
  489.             /* so check it out */
  490.             
  491.             if ((tempKey == 'V') && (myDialogEvent->modifiers & cmdKey)) {
  492.                 
  493.                 /* Gettting the scrap with a nil handle, which does not give us data, just */
  494.                 /* returns the size */
  495.                 if (resultLen > 25) {
  496.                     SysBeep(1);                             /* complain a little */
  497.                     returnVal = true;                       /* tell the dialog manager that we handled this already and */
  498.                     
  499.                 }
  500.             }
  501.         }
  502.     }
  503.     /* We are doing three checks here in the dialog filter for  mouseDown */
  504.     /* events. */
  505.     /* The first checks to see if we're in the icon of that Charismatic Dude */
  506.     /* Fred, and tracks it like a control if we are. */
  507.     /* If we're not, then we may be in our scroll bar, and we have to */
  508.     /* do various things if that is true. */
  509.     /* Or, we may be in the disabled edit line, and we have to disallow clicks on it */
  510.     /* when it's disabled */
  511.     
  512.     if (myDialogEvent->what == mouseDown) {
  513.         mousePoint = (myDialogEvent->where);
  514.         GlobalToLocal(&mousePoint);
  515.         /* First see if we're in Fred */
  516.         GetDItem(inputDialog, kFredIconItem, &tempItem, &tempHandle, &tempRect);
  517.         if (PtInRect(mousePoint, &tempRect)) {
  518.             /* invert my icon, and track it whilst the user holds the mouse down */
  519.             InvertRect(&tempRect);
  520.             hiLit = true;
  521.             while (StillDown()) {
  522.                 GetMouse(&tempPoint);                       /* returns point in local coords */
  523.                 if (PtInRect(tempPoint, &tempRect)) {
  524.                     /* in the rect.  See if it's hilighted or not */
  525.                     if (hiLit == false) {
  526.                         hiLit = true;
  527.                         InvertRect(&tempRect);
  528.                     }
  529.                 } else {
  530.                     /* not in the rectangle.  If it's hilit, get rid of that */
  531.                     if (hiLit == true) {
  532.                         hiLit = false;
  533.                         InvertRect(&tempRect);
  534.                     }
  535.                 }
  536.             }
  537.             if (hiLit == true) {
  538.                 /* if it's still hilited when the mouse comes up, then that means the */
  539.                 /* user stayed in and wants to take this icon action */
  540.                 InvertRect(&tempRect);                      /* clear the hiliting if it's still lit */
  541.                 *theDialogItem = kFredIconItem;
  542.                 returnVal = true;                           /* telling the Dialog Manager we handled it, pass item back */
  543.             }
  544.         } else {
  545.             /* Now see if we're in the scroll bar  */
  546.             
  547.             GetDItem(inputDialog, kScrollControlItem, &tempItem, &tempHandle, &tempRect);
  548.             if (PtInRect(mousePoint, &tempRect)) {
  549.                 /* We're in the scroll bar. */
  550.                 /* Now, what does that mean???? */
  551.                 /* Well, the Dialog Manager will automatically call FindControl and TrackControl */
  552.                 /* and set the control value (in the case of scroll thumbs) */
  553.                 /* on controls added to your dialog, and in many cases that's all you're going */
  554.                 /* to need. */
  555.                 /* But, ModalDialog does NOT pass back a part code, so if the userPerson */
  556.                 /* clicked on the thumb or arrows of the scroll bar, you won't know, you'll */
  557.                 /* just know that the  scroll bar was clicked in.*/
  558.                 /* That's not enough, so we'll to an initial check to see where the control */
  559.                 /* was hit */
  560.                 thePart = FindControl(mousePoint, inputDialog, &returnedControl);
  561.                 /* if the hit was in an arrow or page area, we'll handle it ourselfs */
  562.                 if (thePart != inThumb) {
  563.                     TrackControl(returnedControl, mousePoint, (ProcPtr)DoScrollArrows);
  564.                     returnVal = true;
  565.                 }
  566.                 /* if it was in the thumb, we'll just fall through and let the Dialog Manager */
  567.                 /* handle it for us */
  568.             } else {
  569.                 /* first see if we even care about this click.  If the check box is true, then */
  570.                 /* both edit lines are active, let the dialog manager handle it */
  571.                 if (GetCtlValue(SnatchHandle(inputDialog, kEditCheckBox))) {
  572.                     returnVal = false;                      /* DM will handle */
  573.                 } else {
  574.                     /* OK, so the edit line checkbox is NOT set, which means that we don't want */
  575.                     /* hits in the inactive edit line to do anything.  So, see if the hit was */
  576.                     /* in the edit line, and report 'true' if it was, telling the Dialog Manager that */
  577.                     /* you handled the event and it should do nothing */
  578.                     GetDItem(inputDialog, kBottomEditLine, &tempItem, &tempHandle, &tempRect);
  579.                     if (PtInRect(mousePoint, &tempRect)) {
  580.                         returnVal = true;
  581.                     } else {
  582.                         returnVal = false;
  583.                     }
  584.                 }
  585.             }
  586.         }
  587.     }
  588.     /* one final thing if we're under System 7, */
  589.     /* calling the standard filter. */
  590.     /* You MUST call the standard filter if you want any of the  */
  591.     /* new things to happen! */
  592.     /* The OK button border, cursor tracking, and the rest ONLY */
  593.     /* happen if you call the filter! */
  594.     /* I am also only doing this if the returnValue is still false.  If I have */
  595.     /* set it to true somewhere in here, I don't want to call the stdFilter */
  596.     if (gNewDialog && !returnVal) {
  597.         
  598.         myErr = GetStdFilterProc(&theModalProc);
  599.         if (myErr == noErr)
  600.             returnVal = theModalProc(inputDialog, myDialogEvent, theDialogItem);
  601.     }
  602.     return(returnVal);
  603. } /* end filterIt */
  604.  
  605. /* SpinIt animates my fancy icon */
  606. void SpinIt(DialogPtr theDialog)
  607. {
  608.     static short pos;
  609.     static long count;
  610.     Handle myIcon;
  611.     Rect tempRect;
  612.     short tempItem;
  613.     Handle tempHandle;
  614.     /* I'm adjusting the speed of the spin based on the value of the scroll bar */
  615.     if (TickCount() > count + (10 - GetCtlValue(SnatchHandle(theDialog, kScrollControlItem)))) {
  616.         count = TickCount();                                /* reset count to next value */
  617.         myIcon = GetIcon(pos + kBaseSpinIcon);
  618.         /* you could have a rect in this function, but that'd require you to change it all 
  619.         * the time when you move the item around in your dialog.  So, we'll reference it 
  620.         * from the dialog record instead */
  621.         /* make sure we really got the handle */
  622.         if (myIcon != nil) {
  623.             GetDItem(theDialog, kSpinItem, &tempItem, &tempHandle, &tempRect);
  624.             PlotIcon(&tempRect, myIcon);
  625.             ReleaseResource(myIcon);
  626.         }
  627.         pos++;
  628.         if (pos > 3)
  629.             pos = 0;
  630.     }
  631. } /* end SpinIt */
  632.  
  633. /* BorderDefault draws a heavy border around the default button (in this case the OK button ) */
  634. /* Again, not necessary if the new DM calls are in */
  635. pascal void BorderDefault(WindowPtr dwind, short dinum)
  636. {
  637. #pragma unused (dinum)
  638.     short itemtype;
  639.     Handle itemhandle;
  640.     Rect borderRect;
  641.     GetDItem(dwind, ok, &itemtype, &itemhandle, &borderRect);
  642.     /* ok is defined as 1 in the interfaces.  If you'd like another item outlined, */
  643.     /* change this number, of course. */
  644.     InsetRect(&borderRect, -4, -4);
  645.     PenSize(3, 3);
  646.     FrameRoundRect(&borderRect, 16, 16);
  647.     PenSize(1, 1);
  648. } /* end BorderDefault */
  649.  
  650. /* This userItem dims the bottom edit line if the check box is not checked */
  651. pascal void DimEditLine(WindowPtr dwind, short dinum)
  652. {
  653.     ControlHandle tempCont;
  654.     tempCont = SnatchHandle(dwind, kEditCheckBox);
  655.     /* only do it if the checkbox is false */
  656.     if (GetCtlValue(tempCont) == false) {
  657.         PenState thePen;
  658.         short itemType;
  659.         Handle itemHandle;
  660.         Rect dimRect;
  661.         /* Save and restore the pen state so we don't mess things up for other */
  662.         /* drawing routines */
  663.         GetPenState(&thePen);
  664.         GetDItem(dwind, dinum, &itemType, &itemHandle, &dimRect);
  665.         PenMode(notPatBic);
  666.         PenPat(&qd.gray);
  667.         PaintRect(&dimRect);
  668.         SetPenState(&thePen);
  669.         
  670.     }
  671. } /* end DimEditLine */
  672.  
  673. /* a little utility to see if the current key is an edit-type key */
  674. Boolean IsEditKey(char theKey, short modifiers)
  675. {
  676.     register qq;
  677.     Boolean returnVal = false;
  678.     char editChars[] =  {
  679.         kLeftArrow, kUpArrow, kRightArrow, kDownArrow, kBackSpace, kEscKey
  680.     };
  681.     char commandEdits[] =  {
  682.         'C', 'V', 'P'
  683.     };
  684.     for (qq = 0; qq < sizeof(editChars) / sizeof(char); qq++) {
  685.         if (theKey == editChars[qq])
  686.             returnVal = true;
  687.     }
  688.     if (returnVal != true && (modifiers & cmdKey)) {
  689.         /* check for XCP */
  690.         /* Do you want me to use toupper?  What! And link in all of StdLib! aggggg */
  691.         if (theKey >= 0x61 && theKey <= 0x7a)
  692.             theKey -= 0x20;
  693.         for (qq = 0; qq < sizeof(commandEdits) / sizeof(char); qq++) {
  694.             if (theKey == commandEdits[qq])
  695.                 returnVal = true;
  696.         }
  697.     }
  698.     return(returnVal);
  699. } /* end IsEditKey */
  700.  
  701. /* changes the cursor to an IBeam if it's over an active edit line, or to the */
  702. /* arrow if it's not */
  703. /* Again, not necessary if the new DM calls are in */
  704. void IBeamIt(WindowPtr dwind)
  705. {
  706.     Point mouseAt;
  707.     short itemtype;
  708.     Handle itemhandle;
  709.     Rect borderRect;
  710.     short itemNum;
  711.     /* first get the current edit line out of the dialog record */
  712.     itemNum = ((DialogPeek)dwind)->editField + 1;           /* always stored 1 less */
  713.     GetDItem(dwind, itemNum, &itemtype, &itemhandle, &borderRect);
  714.     GetMouse(&mouseAt);
  715.     if (PtInRect(mouseAt, &borderRect)) {
  716.         SetCursor(*(GetCursor(1)));
  717.     } else {
  718.         /* This means I'm callng InitCursor every time through my filter */
  719.         /* this is a little excessive (ha!) but doesn't hurt anything. */
  720.         /* You could set a global or something if this really offends you */
  721.         InitCursor();
  722.         
  723.     }
  724. } /* end IBeamIt */
  725.  
  726. /* Gets the ControlHandle for the item you want in the dialog box thebox.  */
  727. /* Handy for setting checkboxes and radio buttons */
  728. /* This is the _most_ copied routine from this file */
  729. ControlHandle SnatchHandle(DialogPtr thebox, short theGetItem)
  730. {
  731.     short itemtype;
  732.     Rect itemrect;
  733.     Handle thandle;
  734.     
  735.     GetDItem(thebox, theGetItem, &itemtype, &thandle, &itemrect);
  736.     return((ControlHandle)thandle);
  737. } /* end SnatchHandle */
  738.  
  739. /* This little routine adjusts the scroll bar during TrackControl */
  740. pascal void DoScrollArrows(ControlHandle theControl, short thePart)
  741. {
  742.     short currentVal = GetCtlValue(theControl);
  743.     short offSet = 0;
  744.     switch (thePart) {
  745.         case inUpButton:
  746.             offSet = -1;
  747.             break;
  748.         case inDownButton:
  749.             offSet = 1;
  750.             break;
  751.         case inPageUp:
  752.             offSet = -3;
  753.             break;
  754.         case inPageDown:
  755.             offSet = 3;
  756.             break;
  757.             
  758.     }
  759.     /* set the control value to the new one, as long as it doesn't pass limits */
  760.     currentVal += offSet;
  761.     if (currentVal < 1)
  762.         currentVal = 1;
  763.     if (currentVal > 10)
  764.         currentVal = 10;
  765.     SetCtlValue(theControl, currentVal);
  766.     
  767. } /* end DoScrollArrows */
  768.  
  769. short HasSelectionRange(DialogPeek inputDialog)
  770. {
  771.     TEHandle theTERecord = inputDialog->textH;
  772.     short returnVal = (*theTERecord)->selEnd -(*theTERecord)->selStart;
  773.     
  774.     return(returnVal);
  775. } /* end HasSelectionRange */
  776.  
  777. /* This NOP routine is here in case the ShortenDITL call is not */
  778. /* available but the new dialog manager calls are.  In that case I don't */
  779. /* want to have the bordering box, but I have to have the user item */
  780. /* pointing at something */
  781. pascal void NOPRoutine(WindowPtr dwind, short dinum)
  782. {
  783. #pragma unused (dwind,dinum)
  784. } /* end NOPRoutine */
  785.  
  786. /* Swiped as was from Sample.c */
  787. Boolean TrapAvailable(short tNumber, TrapType tType)
  788. {
  789.     SysEnvRec Mac;
  790.     /* I didn't make the environs record global because I just don't use it anywhere else */
  791.     SysEnvirons(kSysEnvironsVersion, &Mac);
  792.     if ((tType == ToolTrap) && (Mac.machineType > envMachUnknown) && (Mac.machineType < envMacII)) {    /* it's a 512KE, Plus, or SE */
  793.         tNumber = tNumber & 0x03FF;
  794.         if (tNumber > 0x01FF)                               /* which means the tool traps */
  795.             tNumber = _Unimplemented;                       /* only go to 0x01FF */
  796.     }
  797.     return NGetTrapAddress(tNumber, tType) != GetTrapAddress(_Unimplemented);
  798. }
  799.  
  800. /*TrapAvailable*/
  801.